object AtomicClock: TAtomicClock Left = 0 Top = 0 Width = 560 Height = 470 TabOrder = 0 object GroupBox_ManualAdjust: TGroupBox Left = 0 Top = 24 Width = 450 Height = 103 Caption = 'Manual Adjust' TabOrder = 0 object Shape1: TShape Left = 70 Top = 22 Width = 280 Height = 17 Brush.Color = clGray end object Label_LocalTimeCaption: TLabel Left = 13 Top = 24 Width = 51 Height = 13 Alignment = taRightJustify Caption = 'Local time:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Shape2: TShape Left = 70 Top = 46 Width = 280 Height = 17 Brush.Color = clGray end object Label_ExactTimeCaption: TLabel Left = 12 Top = 48 Width = 52 Height = 13 Alignment = taRightJustify Caption = 'Exact time:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Shape3: TShape Left = 70 Top = 70 Width = 280 Height = 17 Brush.Color = clGray end object Label_DifferenceCaption: TLabel Left = 13 Top = 72 Width = 51 Height = 13 Alignment = taRightJustify Caption = 'Correction:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label_LocalTime: TLabel Left = 70 Top = 24 Width = 280 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Label_LocalTime' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label_ExactTime: TLabel Left = 70 Top = 48 Width = 280 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Label_ExactTime' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label_Difference: TLabel Left = 70 Top = 72 Width = 280 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Label_Difference' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Button_GetTime: TButton Left = 361 Top = 26 Width = 75 Height = 25 Caption = 'Get Time' Default = True TabOrder = 0 OnClick = Button_GetTimeClick end object Button_Adjust: TButton Left = 361 Top = 58 Width = 75 Height = 25 Caption = 'Adjust' TabOrder = 1 OnClick = Button_AdjustClick end end object GroupBox_AdvancedSettings: TGroupBox Left = 0 Top = 132 Width = 450 Height = 218 Caption = 'Advanced Settings' TabOrder = 1 object Label_AutoAdjustCaption: TLabel Left = 16 Top = 46 Width = 106 Height = 13 Caption = 'Adjust time periodically' end object Label_AdjustMethodCaption: TLabel Left = 16 Top = 90 Width = 67 Height = 13 Caption = 'Adjust method' end object Label_ActiveProtocolCaption: TLabel Left = 16 Top = 134 Width = 71 Height = 13 Caption = 'Active protocol' end object Bevel2: TBevel Left = 200 Top = 16 Width = 9 Height = 193 Shape = bsLeftLine end object Label_SOCKSVersionCaption: TLabel Left = 232 Top = 52 Width = 35 Height = 13 Caption = 'Version' end object Label_ProxyHostCaption: TLabel Left = 232 Top = 76 Width = 38 Height = 13 Caption = 'Address' end object Label_ProxyUsernameCaption: TLabel Left = 232 Top = 156 Width = 48 Height = 13 Caption = 'Username' end object Label_ProxyPasswordCaption: TLabel Left = 232 Top = 180 Width = 46 Height = 13 Caption = 'Password' end object Label_ProxyPortCaption: TLabel Left = 232 Top = 100 Width = 19 Height = 13 Caption = 'Port' end object Button_EditTimeServersList: TButton Left = 78 Top = 178 Width = 107 Height = 25 Caption = 'Time Servers ...' TabOrder = 4 OnClick = Button_EditTimeServersListClick end object ComboBox_AutoAdjustInterval: TComboBox Left = 16 Top = 62 Width = 169 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 OnChange = ComboBox_AutoAdjustIntervalChange Items.Strings = ( 'never' 'hourly' 'every 2 hours' 'every 3 hours' 'every 4 hours' 'every 6 hours' 'every 8 hours' 'every 12 hours') end object ComboBox_AdjustMethod: TComboBox Left = 16 Top = 106 Width = 169 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 2 OnChange = ComboBox_AdjustMethodChange Items.Strings = ( 'Time only' 'Minutes and Seconds only' 'both Date and Time') end object ComboBox_ActiveProtocol: TComboBox Left = 16 Top = 150 Width = 169 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 3 OnChange = ComboBox_ActiveProtocolChange Items.Strings = ( 'SNTP Protocol (RFC 2030)' 'Time Protocol (RFC 868)') end object CheckBox_UseProxy: TCheckBox Left = 216 Top = 24 Width = 193 Height = 17 Caption = 'Use proxy (for Time Protocol only)' TabOrder = 5 OnClick = CheckBox_UseProxyClick end object ComboBox_SOCKSVersion: TComboBox Left = 296 Top = 48 Width = 137 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 6 OnChange = ComboBox_SOCKSVersionChange Items.Strings = ( 'SOCKS v4.0' 'SOCKS v4.0A' 'SOCKS v5.0') end object Edit_ProxyHost: TEdit Left = 296 Top = 72 Width = 137 Height = 21 TabOrder = 7 OnChange = Edit_ProxyHostChange end object Edit_ProxyPort: TEdit Left = 296 Top = 96 Width = 73 Height = 21 TabOrder = 8 OnChange = Edit_ProxyPortChange end object CheckBox_UseProxyAuthentication: TCheckBox Left = 216 Top = 128 Width = 193 Height = 17 Caption = 'Proxy authentication' TabOrder = 9 OnClick = CheckBox_UseProxyAuthenticationClick end object Edit_ProxyUsername: TEdit Left = 296 Top = 152 Width = 137 Height = 21 TabOrder = 10 OnChange = Edit_ProxyUsernameChange end object Edit_ProxyPassword: TEdit Left = 296 Top = 176 Width = 137 Height = 21 PasswordChar = '*' TabOrder = 11 OnChange = Edit_ProxyPasswordChange end object CheckBox_AdjustOnConnect: TCheckBox Left = 16 Top = 24 Width = 169 Height = 17 Caption = 'Adjust on Connect' TabOrder = 0 OnClick = CheckBox_AdjustOnConnectClick end end object Panel_Caption: TPanel Left = 0 Top = 0 Width = 450 Height = 20 BevelOuter = bvNone TabOrder = 2 object Shap_Caption: TShape Left = 0 Top = 0 Width = 450 Height = 20 Align = alClient Brush.Color = 12937777 end object Label_Caption: TLabel Left = 6 Top = 1 Width = 82 Height = 16 Caption = 'Atomic Clock' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False Transparent = True end end object Timer_State: TTimer OnTimer = Timer_StateTimer Left = 8 Top = 308 end object Timer_AutoAdjust: TTimer Interval = 5000 OnTimer = Timer_AutoAdjustTimer Left = 40 Top = 308 end object FnugryRASNotify: TFnugryRASNotify Enabled = True PollInterval = 2000 OnConnected = FnugryRASNotifyConnected Left = 168 Top = 148 end end